perm filename PINK[HAK,ROB] blob sn#429122 filedate 1979-03-31 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	flowchart for dummies
C00003 ENDMK
C⊗;
flowchart for dummies

initialize(PEOPLES)
initialize(FANTOMS)
for JOBNUM = minjob to maxjob do
  ⊂
  if fantom(JOBNUM)
    then SORT_WHOLINE_ONTO(FANTOMS)
    else SORT_WHOLINE_ONTO(PEOPLES)
  ⊃

PROCEDURE GetRecord(FSList);
  p ← FSList;
  q ← NEXT(FSList)
  NEXT(p) ← NEXT(q);
  return(q)